$h = GetAllHeaders () ;
   While (list ($variable, $valeur) = Each ($h))
    {
     echo $variable."=".$valeur."<br>" ;
    }
   //$ok = SQL_commande ("SET character_set_client=utf8", $id_sql) ;
   //$ok = SQL_commande ("SET character_set_results=utf8", $id_sql) ;
   //$ok = SQL_commande ("SET NAMES utf8", $id_sql) ;
   $ok = SQL_commande ("SHOW SESSION VARIABLES", $id_sql) ;
   For ($i = 0 ; $i <= 17 ; $i++)
    {
     $ligne = SQL_ligne_suivante ($ok) ;
     Echo $ligne [0]."->".$ligne [1]."<br>" ;
    }